﻿Imports BUS
Public Class Form1
    Dim temp As New BaoCaoDoanhSo
    Dim temp1 As New BaoCaoTon
    Dim flag As Integer = 1

    Private Sub btnThem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThem.Click
        PanelEx1.Controls.Clear()
        Dim temp As TiepNhanXeSua = New TiepNhanXeSua()
        PanelEx1.Controls.Add(temp)
    End Sub

    Private Sub btnPhieuSuaChua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPhieuSuaChuaF.Click
        PanelEx1.Controls.Clear()
        Dim temp As SuaChuaPhieu = New SuaChuaPhieu()
        PanelEx1.Controls.Add(temp)
    End Sub

    Private Sub btnPhieuThu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPhieuThu.Click
        PanelEx1.Controls.Clear()
        Dim temp As UserControlPhieuThuTien = New UserControlPhieuThuTien
        PanelEx1.Controls.Add(temp)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dsXe As New UserControlDanhSach
        PanelEx2.Controls.Add(dsXe)
    End Sub

    Private Sub btnXoa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnXoa.Click

    End Sub

    Private Sub RibbonTabItem_BaoCao_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RibbonTabItem_BaoCao.Click
        PanelEx1.Hide()
        PanelEx2.Hide()
        temp.Hide()
        temp1.Hide()

        'temp.Show()

        flag = 2
    End Sub

    Private Sub btnDoanhSo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDoanhSo.Click
        PanelEx1.Hide()
        PanelEx2.Hide()
        temp.Show()

        flag = 2
        temp.Dock = DockStyle.Bottom
        Me.Controls.Add(temp)
    End Sub

    Private Sub btnTonKho_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTonKho.Click
        PanelEx1.Hide()
        PanelEx2.Hide()
        temp.Hide()
        'temp.Show()

        flag = 2
        temp1.Dock = DockStyle.Bottom
        Me.Controls.Add(temp1)
        temp1.Show()
    End Sub

    Private Sub RibbonTabItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RibbonTabItem1.Click
        PanelEx1.Show()
        PanelEx2.Show()
        temp.Hide()
        temp1.Hide()

        ''temp.Show()

        'flag = 2
    End Sub
End Class
